home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs17.d81
/
cad403.sfx
/
prd
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
426b
|
19 lines
1 OPEN15,D0,15,"UI:":CLOSE15
2 A=USR(0),0,1,4
3 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17):A=USR(1):PRINT"[147]"
4 OPEN15,4,15:CLOSE15
5 IFST=0THEN9
6 PRINTCHR$(14)"[212]URN ON THE PRINTER AND PRESS A KEY."
7 GETA$:IFA$=""THEN7
8 GOTO4
9 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(34),16,Y,6
10 A=USR(34),X,231,7
11 OPEN4,4,5:CMD4
12 SYS36894
13 PRINT#4:CLOSE4
14 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
15 GETA$:IFA$=""THEN15
16 IFA$=CHR$(135)THENSYS36885:LOADA$,D0
17 POKE780,ASC(A$):SYS32813
18 GOTO14